COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE FFIB
C00004 ENDMK
C⊗;
	TITLE FFIB
	ENTRY FFIB
	EXTERNAL ALOG
FFIB:	0	;DATA FIB/0.618/, RFIB/-.382/,ALG/0.30103/
		;100	ACCEPT 10,A   10	FORMAT(F)
	MOVE 12,@(16)		;PFIBX=14
	MOVE 13,[14.0]		;IF(A.EQ.1)GO TO 20
	CAMN 12,[1.0]		;Z=FIB
	JRST PFX		;IF(A.LT.1)Z=RFIB
	JSA 16,ALOG		;RH=ABS(ALOG(A)/ALOG(2.0))
	JUMP 12
	FDVR 0,[0.6931472]
	MOVM 11,0
	MOVE 10,[0.618]
	SKIPG    		;L=RH
	MOVN 10,[0.382]		;IF(L.EQ.0)GO TO 4
	KIFIX 7,11
	MOVE 6,7		;SAVE L FOR LATER
	JUMPE 6,PFZ
PF:	MOVE 2,13		;	DO 3 K=1,L
	FMPR 2,10		;3	PFIBX=PFIBX+PFIBX*Z
	FADR 13,2
	SOJG 6,PF
PFZ:	FLTR 7,7		;4	RH=RH-L
	FSBR 11,7		;IF(RH.EQ.0)GO TO 20
	JUMPE 11,PFX	
	MOVE 2,13
	FMPR 2,10
	FMPR 2,11		;PFIBX=PFIBX+PFIBX*Z*RH
	FADR 13,2
PFX:	MOVE 0,13		;SEND BACK THE RESULT
	JRA 16,1(16)
	END